10 PRINT"[147]";:FORI=1TOI+8:FORJ=14TO0STEP-10:FORX=1TOX+5:POKE646,X+1
15 POKE53280,.:POKE53281,.:POKE56325,68
30 PRINTTAB(J)"     [146]  [146]  [146]  [146] [145][169][163][163][163][163][169][223][169] ";:
40 :PRINTTAB(4*X)"";
50 PRINTTAB(X)"";::NEXT
51 PRINT"";:POKE646,3+J:  NEXT:PRINT;:PRINT;:
53 PRINTTAB(I)"  [160] [160][160] [146]  [146]  [146]  [146]  [146] [145][163]ENDE[163][163]"
55 PRINT"[153][160][160]           ENDE [145]" :NEXT:POKE56325,55